# Simple R plot for data  
# '2012-02-01 17:42:44'   
# Line plot to detect anomalous database queries 
# Run with: 
# r CMD BATCH /home/src/jvmnotebook/java/scripting/line_plot2.r 
 
library(ggplot2) 
req <- read.table("hist.dat") 
summary(req) 
chart_title = 'Word Freq Dem Debate'
xterm <- req$V2
ycount <- req$V1
png('hist.png', width=800, height=600) 
gg <- ggplot(req, aes(x=xterm)) + stat_bin(aes(y=ycount)) + opts(title = chart_title) 
print(gg) 
dev.off() 

